﻿Public Class FrmXe
    
    Private Sub FrmXe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetCbBox(cbnhacungcap, "TenNCC", "MaNCC", NhaCungCap.DanhSach)
        SetCbBox(cbhangsanxuat, "TenHang", "MaHang", HangSanXuat.dshsx)
        SetCbBox(cbloaixe, "TenLoai", "MaLoai", LoaiXe.dslx)
        SetCbBox(cbtinhtrang, "MoTa", "MaTT", TinhTrangXe.dstt)
        SetCbBox(cbmauxe, "TenMau", "MaMau", Xe.DanhSachMau)
        For i As Integer = Date.Now.Year - 100 To Date.Now.Year
            cbnamsanxuat.Items.Add(i)
        Next
        MsgBox("hi")
        dgvXe.DataSource = Xe.DanhSach()
    End Sub

    Private Sub btnNhapLai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNhapLai.Click
        txtBienSo.Text = ""
        txttenxe.Text = ""
        cbnhacungcap.SelectedIndex = 0
        cbhangsanxuat.SelectedIndex = 0
        cbloaixe.SelectedIndex = 0
        cbnamsanxuat.SelectedIndex = 0
        cbtinhtrang.SelectedIndex = 0
        cbmauxe.SelectedIndex = 0
        PhucHoiSua()
    End Sub
    Private Sub PhucHoiSua()
        btnSua.Text = "&Sửa"
    End Sub
    Private Sub btnSua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSua.Click
        If btnSua.Text = "&Sửa" Then
            txtBienSo.Text = dgvXe.CurrentRow.Cells("BienSo").Value
            txttenxe.Text = dgvXe.CurrentRow.Cells("TenXe").Value
            txtgia.Text = dgvXe.CurrentRow.Cells("Gia").Value
            cbnhacungcap.SelectedValue = dgvXe.CurrentRow.Cells("MaNCC").Value
            cbhangsanxuat.SelectedValue = dgvXe.CurrentRow.Cells("MaHang").Value
            cbloaixe.SelectedValue = dgvXe.CurrentRow.Cells("MaLoai").Value
            cbnamsanxuat.Text = dgvXe.CurrentRow.Cells("NamSX").Value
            cbtinhtrang.SelectedValue = dgvXe.CurrentRow.Cells("MaTT").Value
            cbmauxe.SelectedValue = dgvXe.CurrentRow.Cells("MaMau").Value
            btnSua.Text = "&Lưu"
        Else
            PhucHoiSua
            For Each r As DataGridViewRow In dgvXe.Rows
                If txtBienSo.Text = r.Cells("BienSo").Value Then
                    MsgBox("Bạn đã thêm xe có biển số này rồi!", MsgBoxStyle.Information, "Thông tin")
                    Exit Sub
                End If
            Next
            If Not Xe.CapNhat(txtBienSo.Text, txttenxe.Text, Val(txtgia.Text), cbnamsanxuat.Text, cbnhacungcap.SelectedValue, cbloaixe.SelectedValue, cbhangsanxuat.SelectedValue, cbmauxe.SelectedValue, cbtinhtrang.SelectedValue) Then
                MsgBox("Không thể lưu thông tin xe có biển số này!", MsgBoxStyle.Information, "Thông tin")
            End If

        End If
    End Sub

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        PhucHoiSua()
        If txtBienSo.Text = "" Or txttenxe.Text = "" Then
            MsgBox("Bạn cần nhập đủ thông tin xe!", MsgBoxStyle.Information, "Thông tin")
            Exit Sub
        End If
        If Not Xe.Them(txtBienSo.Text, txttenxe.Text, Val(txtgia.Text), cbnamsanxuat.Text, cbnhacungcap.SelectedValue, cbloaixe.SelectedValue, cbhangsanxuat.SelectedValue, cbmauxe.SelectedValue, cbtinhtrang.SelectedValue) Then
            MsgBox("Không thể thêm thông tin xe có biển số này!", MsgBoxStyle.Information, "Thông tin")
            Exit Sub
        End If
        dgvXe.DataSource = Xe.DanhSach()
    End Sub

    Private Sub dgvXe_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvXe.CellDoubleClick
        PhucHoiSua()
        btnSua_Click(sender, e)
    End Sub

    Private Sub btnXoa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoa.Click
        PhucHoiSua()
        If MsgBox("Xóa xe có biển số " & dgvXe.CurrentRow.Cells("BienSo").Value, MsgBoxStyle.YesNo, "Thông báo") = DialogResult.Yes Then
            If Not Xe.Xoa(dgvXe.CurrentRow.Cells("BienSo").Value) Then
                MsgBox("Không thể xóa thông tin xe!", MsgBoxStyle.Information, "Thông tin")
            End If
            dgvXe.DataSource = Xe.DanhSach()
        End If
    End Sub

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Close
    End Sub

    Private Sub btndaydu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndaydu.Click
        dgvXe.DataSource = Xe.DanhSach()
    End Sub

    Private Sub btnTimKiem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimKiem.Click

        dgvXe.DataSource = Xe.TimKiem(txtTuKhoa.Text)
    End Sub
End Class